home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh83a.d64 / ultramenu tool (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  868 b   |  22 lines
  1. 100 REM *** ULTRAMENUE TOOL
  2. 110 REM *** 1992 MARTIN PFOST
  3. 120 REM *** (C) 1992 HEUREKA TEACHWARE
  4. 130 INPUT "    ==> [198]ILENAME ";N$
  5. 140 INPUT "==> [211]TARTADRESSE ";A:H=INT(A/256):L=A-256*H
  6. 150 PRINT "==> ENTSPRECHENDE [196]ISKETTE EINLEGEN !":POKE 198,0:WAIT 198,1
  7. 160 OPEN 2,8,2,N$
  8. 170 GET#2,A$:IF A$="" THEN A$=CHR$(0)
  9. 180 GET#2,B$:IF B$="" THEN B$=CHR$(0)
  10. 190 PRINT " [193]NFANGSADRESSE DES [198]ILES :";ASC(A$)+256*ASC(B$):CLOSE 2
  11. 200 OPEN 2,8,2,"BT,P,W":GOSUB 240:PRINT#2,A$;:GOSUB 240
  12. 210 PRINT#2,B$;:GOSUB 240:PRINT#2,CHR$(L);CHR$(H);CHR$(96);
  13. 220 CLOSE 2:IF C<>8466 THEN PRINT "??? [196]ATA-[198]EHLER !":STOP
  14. 230 OPEN 1,8,15,"C:."+N$+"=BT,"+N$:PRINT#1,"S:BT":CLOSE 1:END
  15. 240 READ D:IF D=4 THEN RETURN
  16. 250 PRINT#2,CHR$(D);:C=C+D:GOTO 240
  17. 260 REM *** VERSCHIEBEROUTINE
  18. 270 DATA1,8,12,8,194,7,158,32,50,48,54,50,0,0,0,169,76,133,168,169,8,133,169
  19. 280 DATA169,4,133,170,169,4,133,171,160,0,177,168,145,170,230,168,208
  20. 290 DATA2,230,169,230,170,208,2,230,171,165,168,197,45,208,234,165,169,197
  21. 300 DATA46,144,228,172,78,3,185,255,1,41,16,240,3,76,4
  22.